5 POKE53281,0:POKE53280,0: PRINT"[147]"
10 DV=PEEK(186):IFDV<8THENDV=8
20 GOSUB41000
30 Q$=CHR$(34):PRINT"[144]LOAD"Q$"SAMMY TITLE.PKD"Q$","DV
35 PRINT"RUN":PRINT"[154]     [196]OES [206][207][212] [210]ETURN TO [204][207][193][196][211][212][193][210]"
36 PRINT"     [207]NLY RUNS FROM DRIVE #8."
40 PRINT"        [208]RESS <[209]> TO [209]UIT NOW[158]"
41 FORX=0TO5:READA$:PRINTTAB(19-LEN(A$)/2)A$:NEXT
44 GETZ$:IFZ$<>""THEN49
45 Q=Q+1:IFQ<30THEN44
46 Q=0:POKE646,(PEEK(646)+8)AND15:PRINTTAB(19-LEN(A$)/2)A$:GOTO44
49 PRINT"[144]":IFZ$="Q"THEN40000
50 IFDV<>8THEN500
51 POKE631,13:POKE632,13:POKE198,2:END
500 PRINT"[147]         [205]UST BE ON [196]RIVE 8"
502 PRINT"      [208]RESS ANY [203]EY FOR [204][207][193][196][211][212][193][210]
504 [151]198,0:[146]198,1:[161]Z$:[137]40000
9999 [128]
10000 D[178][194](186):N$[178]"0:B.RETURN OF SM":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]
40000 [151]53280,0:[151]53281,0:[151]53265,27:DV[178][194](186):Q$[178][199](34):[153]"LOADSTOP";
40010 A$[178]"HELLO CONNECT":R$[178][199](13)[170]"R(null)"[170][199](13):Q$[178][199](34)
40020 [160]2:[159]2,DV,2,A$:[161]#2,B$:[160]2:[139]ST[178]0[167]40050
40030 [159]15,DV,15,"I0":[132]15,EN:[160]15
40035 [151]53280,14:[151]53281,6:[153]"LOADCONT"
40040 [151]44,8:[151]8[172]256,0:[151]55,0:[151]56,160:[156]:[162]
40050 [153]"LOAD"Q$A$Q$","DV""
40055 [129]X[178]1[164]4:[151]630[170]X,[198]([202](R$,X)):[130]:[151]198,4:[137]40040
41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"LOAD"
41002 [151]214,14:[153]
41004 [153][163]1)"LIST                                     "
41005 [129]X[178]1[164]6
41006 [153][163]1)"PRINT#                                     "
41007 [130]
41013 [153][163]1)"POKE                                     "
41020 [129]X[178]1[164]4:[135]A$:[151]214,15[170]X:[153]
41022 [153][163]19[171][195](A$)[173]2)"PRINT#"A$
41024 [130]
41030 T[178]TI[170]60
41031 [139]T[177]TI[167]41031
41032 [153]"":[142]
41045 [131]"(null)HE (null)ETURN OF (null)AMMY (null)ARLO ((null)2)
41047 DATA"BY [210]ICHARD [202]. [196]EROCHER"
41052 DATA"(C) 2006 BY [202] & [198] [208]UBLISHING, [201]NC.
41053 [131]"WWW.ELOADSTAR.COM
50000 DATA"[158][215]HEN ASKED FOR A [198][201][204][197] [206][193][205][197], "
50001 DATA"TYPE AND [197]NTER:"
50002 DATA""
50003 DATA"[211][193][205][205][217]"
50004 DATA""
50005 DATA"[208]RESS A [203]EY TO [195]ONTINUE[145]"